object ATreeForm: TATreeForm
  Left = 74
  Top = 68
  HelpContext = 9900
  Margins.Left = 4
  Margins.Top = 4
  Margins.Right = 4
  Margins.Bottom = 4
  Caption = 'ATreeForm'
  ClientHeight = 734
  ClientWidth = 1245
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -19
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEC
    EEEEEECEEEEEEEEEEEEECEEEEEEEEEEECEEEEEECEEEEEEEEEEEECEEEEEEEEEEE
    CEEEEEECEEEEEEEEEEECEEEEEEEECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCEEEE
    ECEEEEEECEEEEEEEEECEEEEEEEECEEEEEECEEEEECEEEEEEEEECEEEEEEECECEEE
    EECEEEEECEEEEEEEECEEEEEEECEEECEEEEECEEEECEEEEEEEECE11EEECEEEEECE
    EEEECEEEECEEEEEEECE111ECEEEECCCCCCCCCCCCCCCCCCCCCCC1991CCCCCEEEE
    CEEEECEEECEEEEEECE11991EEEEEEEEECEEEECEEECEEEEECE1199991EEECCEEE
    ECEEEECEEECEEEECE19999991ECECC5555555555555CCCCC1199911111CCEEE5
    DD5DDDDDD5CEEEC119911999191ECCC5DD5DDDDDD5CCCCC191199999191C8888
    5D5DDDDD58888811199999991991888885D5DDD5888888199999999199918888
    85D5DDD58888881999999991991888888855DD58888888819999991999188888
    8885558888888881999999199188888888855588888888881999991991888888
    8888888888888888819991991888888888888888888888888199919188888888
    8888888888888888881991918888888888888888888888888819191888888888
    8888888888888888888119188888888888888888888888888888118888888888
    8888888888888888888888888888888888888888888888888888888888888888
    8888888888888888888888888888888888888888888888888888888888880000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 168
  TextHeight = 24
  object GLSceneViewer1: TGLSceneViewer
    Left = 239
    Top = 43
    Width = 1006
    Height = 691
    HelpContext = 9900
    Margins.Left = 6
    Margins.Top = 6
    Margins.Right = 6
    Margins.Bottom = 6
    Camera = GLCamera2
    FieldOfView = 147.715347290039100000
    PenAsTouch = False
    Align = alClient
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1245
    Height = 43
    HelpContext = 9900
    Margins.Left = 6
    Margins.Top = 6
    Margins.Right = 6
    Margins.Bottom = 6
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 1
    object Label3: TLabel
      Left = 532
      Top = 11
      Width = 136
      Height = 24
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = 'F7 Third Person'
    end
    object Label4: TLabel
      Left = 700
      Top = 11
      Width = 148
      Height = 25
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = 'F8 First Person'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 14
      Top = 11
      Width = 460
      Height = 24
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = 'Move with arrow keys, strafe with CTRL, run with SHIFT'
    end
    object CBMouseLook: TCheckBox
      Left = 896
      Top = 7
      Width = 309
      Height = 29
      HelpContext = 9900
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = 'Mouse Look Toggle (Shift A..D)'
      TabOrder = 0
      OnClick = CBMouseLookClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 43
    Width = 239
    Height = 691
    HelpContext = 9900
    Margins.Left = 6
    Margins.Top = 6
    Margins.Right = 6
    Margins.Bottom = 6
    Align = alLeft
    TabOrder = 2
    object SpriteBtn: TSpeedButton
      Left = 7
      Top = 42
      Width = 224
      Height = 39
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = 'Add 5 Sprite Trees'
      OnClick = SpriteBtnClick
    end
    object ObjectBtn: TSpeedButton
      Left = 7
      Top = 182
      Width = 224
      Height = 39
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = 'Add 5 3D Object Trees'
      OnClick = ObjectBtnClick
    end
    object ClearBtn: TSpeedButton
      Left = 7
      Top = 504
      Width = 224
      Height = 39
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = 'Clear All Trees'
      OnClick = ClearBtnClick
    end
    object CloseBtn: TSpeedButton
      Left = 7
      Top = 588
      Width = 224
      Height = 39
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = 'Quit Exit Close'
      OnClick = CloseBtnClick
    end
    object Tree3dLabel: TLabel
      Left = 70
      Top = 154
      Width = 90
      Height = 24
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = '0 3ds Tree'
    end
    object TreeSpriteLabel: TLabel
      Left = 56
      Top = 14
      Width = 108
      Height = 24
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = '0 Sprite Tree'
    end
    object HelpBtn: TSpeedButton
      Left = 90
      Top = 631
      Width = 42
      Height = 42
      Hint = 'Help or F1 something'
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Glyph.Data = {
        BE060000424DBE06000000000000360400002800000024000000120000000100
        0800000000008802000000000000000000000001000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
        A400000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
        03030606030303030303030303030303030303FFFF0303030303030303030303
        0303030303060404060303030303030303030303030303F8F8FF030303030303
        030303030303030303FE06060403030303030303030303030303F8FF03F8FF03
        0303030303030303030303030303FE060603030303030303030303030303F8FF
        FFF8FF0303030303030303030303030303030303030303030303030303030303
        030303F8F8030303030303030303030303030303030304040603030303030303
        0303030303030303FFFF03030303030303030303030303030306060604030303
        0303030303030303030303F8F8F8FF0303030303030303030303030303FE0606
        0403030303030303030303030303F8FF03F8FF03030303030303030303030303
        03FE06060604030303030303030303030303F8FF03F8FF030303030303030303
        030303030303FE060606040303030303030303030303F8FF0303F8FF03030303
        0303030303030303030303FE060606040303030303030303030303F8FF0303F8
        FF030303030303030303030404030303FE060606040303030303030303FF0303
        F8FF0303F8FF030303030303030306060604030303FE06060403030303030303
        F8F8FF0303F8FF0303F8FF03030303030303FE06060604040406060604030303
        030303F8FF03F8FFFFFFF80303F8FF0303030303030303FE0606060606060606
        06030303030303F8FF0303F8F8F8030303F8FF030303030303030303FEFE0606
        060606060303030303030303F8FFFF030303030303F803030303030303030303
        0303FEFEFEFEFE03030303030303030303F8F8FFFFFFFFFFF803030303030303
        0303030303030303030303030303030303030303030303F8F8F8F8F803030303
        0303}
      NumGlyphs = 2
      OnClick = HelpBtnClick
    end
    object TreeImageBtn: TSpeedButton
      Left = 42
      Top = 84
      Width = 141
      Height = 39
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = 'Tree Image'
      OnClick = TreeImageBtnClick
    end
    object TrealLabel: TLabel
      Left = 56
      Top = 266
      Width = 93
      Height = 24
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = '0 TreeReal'
    end
    object TrealTreeBtn: TSpeedButton
      Left = 7
      Top = 294
      Width = 224
      Height = 39
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = 'Add 1 TReal Tree'
      OnClick = TrealTreeBtnClick
    end
    object ProgressBar: TProgressBar
      Left = 14
      Top = 361
      Width = 197
      Height = 28
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Step = 1
      TabOrder = 0
    end
    object CancelButton: TButton
      Left = 53
      Top = 392
      Width = 130
      Height = 43
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = '&Cancel'
      TabOrder = 1
      OnClick = CancelButtonClick
    end
    object LeafOffCB: TCheckBox
      Left = 56
      Top = 333
      Width = 113
      Height = 25
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Caption = 'Leaf Off'
      TabOrder = 2
    end
  end
  object GLScene1: TGLScene
    ObjectsSorting = osNone
    Left = 184
    Top = 40
    object SkyDome1: TGLSkyDome
      Direction.Coordinates = {000000000000803F0000000000000000}
      Up.Coordinates = {E9DC72BF000000009BE8A13E00000000}
      Bands = <
        item
          StartColor.Color = {0000803F0000803F0000803F0000803F}
          StopAngle = 15.000000000000000000
        end
        item
          StartAngle = 15.000000000000000000
          StopAngle = 90.000000000000000000
          StopColor.Color = {938C0C3E938C0C3E938E0E3F0000803F}
          Stacks = 4
        end
        item
          StartAngle = -15.000000000000000000
          StartColor.Color = {9D9C1C3EA4A3233F9D9C1C3E0000803F}
          StopColor.Color = {000000008180003F000000000000803F}
        end>
      Stars = <>
    end
    object Disk1: TGLDisk
      Material.Texture.MinFilter = miLinear
      Material.Texture.Disabled = False
      Direction.Coordinates = {000000000000803F0000000000000000}
      Up.Coordinates = {00000000000000000000803F00000000}
      Loops = 1
      OuterRadius = 80.000000000000000000
      Slices = 7
      SweepAngle = 360.000000000000000000
    end
    object GLLightSource2: TGLLightSource
      Ambient.Color = {0000803F0000803F0000803F0000803F}
      ConstAttenuation = 1.000000000000000000
      Position.Coordinates = {0000844200003443000084420000803F}
      LightStyle = lsOmni
      SpotCutOff = 180.000000000000000000
    end
    object DummyCube2: TGLDummyCube
      Position.Coordinates = {000000000000803F000000000000803F}
      CubeSize = 0.100000001490116100
      object GLCamera2: TGLCamera
        DepthOfView = 500.000000000000000000
        FocalLength = 100.000000000000000000
        Position.Coordinates = {000000000000003F000000000000803F}
        Direction.Coordinates = {00000080000000000000803F00000000}
        Left = 320
        Top = 192
      end
      object Actor1: TGLActor
        Material.FrontProperties.Emission.Color = {0000803F0000803F0000803F0000803F}
        Material.Texture.MinFilter = miLinear
        Material.Texture.Disabled = False
        Direction.Coordinates = {000000800000803F0000000000000000}
        Up.Coordinates = {0000803F000000000000000000000000}
        Visible = False
        Interval = 100
        object Actor2: TGLActor
          Material.Texture.MinFilter = miLinear
          Material.Texture.Disabled = False
          Interval = 100
        end
      end
      object DummyCube3: TGLDummyCube
        CubeSize = 1.000000000000000000
        object GLCamera1: TGLCamera
          DepthOfView = 1000.000000000000000000
          FocalLength = 200.000000000000000000
          TargetObject = DummyCube2
          Position.Coordinates = {00000000000040400000A0C10000803F}
          Direction.Coordinates = {00000000000000800000803F00000000}
        end
      end
    end
    object GLDummyCube1: TGLDummyCube
      CubeSize = 1.000000000000000000
      object TreeFreeForm: TGLFreeForm
        Material.Texture.TextureMode = tmModulate
        Material.Texture.TextureWrap = twVertical
        Material.Texture.Disabled = False
        MaterialLibrary = GLMaterialLibrary1
        object TreeLeafFF: TGLFreeForm
          Material.Texture.ImageAlpha = tiaSuperBlackTransparent
          Material.Texture.TextureMode = tmModulate
          Material.Texture.TextureWrap = twNone
          Material.Texture.Disabled = False
          MaterialLibrary = GLMaterialLibrary1
        end
        object FruitFF: TGLFreeForm
          Material.Texture.ImageAlpha = tiaSuperBlackTransparent
          Material.Texture.TextureMode = tmModulate
          Material.Texture.TextureWrap = twNone
          Material.Texture.Disabled = False
          MaterialLibrary = GLMaterialLibrary1
        end
      end
    end
    object DummyCube1: TGLDummyCube
      CubeSize = 1.000000000000000000
      object GLSprite1: TGLSprite
        Material.MaterialLibrary = GLMaterialLibrary1
        Material.LibMaterialName = 'TreeSprite'
        ObjectsSorting = osRenderFarthestFirst
        Visible = False
        Width = 30.000000000000000000
        Height = 30.000000000000000000
        Rotation = 0.000000000000000000
      end
      object FreeForm: TGLFreeForm
        Material.MaterialLibrary = GLMaterialLibrary1
        Material.LibMaterialName = 'leaf'
        Direction.Coordinates = {000000000000803F0000000000000000}
        Position.Coordinates = {0000803F0000803F000000000000803F}
        Scale.Coordinates = {CDCC4C3ECDCC4C3E295C8F3E00000000}
        Up.Coordinates = {00000000000000000000803F00000000}
        Visible = False
        MaterialLibrary = GLMaterialLibrary1
        NormalsOrientation = mnoInvert
      end
    end
  end
  object GLCadencer1: TGLCadencer
    Scene = GLScene1
    SleepLength = 0
    OnProgress = GLCadencer1Progress
    Left = 152
    Top = 80
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 184
    Top = 80
  end
  object GLNavigator1: TGLNavigator
    VirtualUp.Coordinates = {000000000000803F000000000000803F}
    MovingObject = DummyCube2
    UseVirtualUp = True
    Left = 224
    Top = 112
  end
  object GLUserInterface1: TGLUserInterface
    MouseSpeed = 20.000000000000000000
    GLNavigator = GLNavigator1
    Left = 256
    Top = 112
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 320
    Top = 72
  end
  object OpenTdfDialog: TOpenDialog
    DefaultExt = '.tdf'
    FileName = '*.tdf'
    Filter = 'Tree definition file (*.tdf))|*.tdf'
    FilterIndex = 0
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Open tree definition file...'
    Left = 156
    Top = 144
  end
  object GLMaterialLibrary1: TGLMaterialLibrary
    Materials = <
      item
        Name = 'TreeSprite'
        Tag = 0
        Material.FrontProperties.Ambient.Color = {3333733F3333733F3333733F0000803F}
        Material.BlendingMode = bmTransparency
        Material.Texture.ImageAlpha = tiaSuperBlackTransparent
        Material.Texture.TextureMode = tmReplace
        Material.Texture.TextureWrap = twNone
        Material.Texture.Disabled = False
      end
      item
        Name = 'leaf'
        Tag = 0
        Material.Texture.ImageAlpha = tiaSuperBlackTransparent
        Material.Texture.TextureMode = tmModulate
        Material.Texture.Disabled = False
        Texture2Name = 'bark'
      end
      item
        Name = 'bark'
        Tag = 0
        Material.Texture.ImageAlpha = tiaSuperBlackTransparent
        Material.Texture.TextureMode = tmModulate
        Material.Texture.Disabled = False
      end>
    Left = 200
    Top = 152
  end
end
